home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mditot_1 / mdichild.cab / MDIChild2.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-05-24  |  1.1 KB  |  44 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cMDIChild2"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. '----------------------------------------------------------------------
  15. 'MDIChildTest
  16. 'Copyright (c) Millennium Software AS
  17. 'Redistribution of Code Prohibited
  18. '
  19. 'Finished:    02.03.99 17:59:45
  20. 'Author:      Morten Ladstein (morten@millennium.no)
  21. 'Company:     Millennium Software AS
  22. 'Web:         http://www.millennium.no
  23. 'Description:
  24. 'Comments:
  25. '----------------------------------------------------------------------
  26.  
  27. Option Explicit
  28.  
  29. Dim frm As MDIChild2Form
  30.  
  31. Public Sub show(hWndMDIParent&, Caption$)
  32.   Set frm = New MDIChild2Form
  33.   Load frm
  34.   frm.mdiChildDll.hWndMDIParent = hWndMDIParent
  35.   frm.Caption = Caption
  36.   frm.mdiChildDll.Load
  37.   frm.mdiChildDll.UserSpecifiedID = "User Specified ID: " & Caption
  38. End Sub
  39.  
  40. Public Sub Destroy()
  41.   Unload frm
  42. End Sub
  43.  
  44.